Function KeyCode(HeldKey, MainKey:Char):Char;

    This function returns the actual  character  value  of the key passed
    as a parameter.  The  actual  character  value  being  the ASCII code
    found in  the  keyboard  buffer  (after  the  Chr(0)  if  a Chr(0) is
    present).

    Example

    KeyCode(Key_Norm,'A')    = 'A'
    KeyCode(Key_Alt,'A')     = Chr(30)